CD School House 9/CD School House 9.0 - Wayzata Technology (1994).iso/pc/dos/networks/tpapi/nwfsserv.pa1

Text File | 1992-03-02 | 10KB | 165 lines

{!R! FONT 15; FTMD 15; EXIT;}


{***************************************************************************}
{** Program : NWFFSERV                                                    **}
{***************************************************************************}
{** Version : 1.2b            ** Started : 11/11/91  ** Ended :   /  /    **}
{***************************************************************************}
{******************************** Description ******************************}
{***************************************************************************}
{** OOP library for Netware API                                           **}
{**                                                                       **}
{** This unit forms the second level object : FILESERVER                  **}
{** This object is a descandent of          : NETWARE                     **}
{**                                                                       **}
{**                                                                       **}
{**                                                                       **}
{**                                                                       **}
{***************************************************************************}
{******************************** Information ******************************}
{***************************************************************************}
{** Provides Netware File Server Services (most require Console operator) **}
{**                                                                       **}
{**                                                                       **}
{**                                                                       **}
{** This code is (c) 1991,1992 Tony Covelli                               **}
{** Portions (c) Novell Inc,                                              **}
{**                                                                       **}
{**                                                                       **}
{***************************************************************************}

{$I NETWARE.INC}

UNIT NWFSSERV;

INTERFACE

USES

  netware, nwvar;

TYPE

  pFileServerOBJ = ^FileServerOBJ;
  FileServerOBJ  = object (NetwareOBJ)

    CONSTRUCTOR Init;

    FUNCTION    CheckConsolePrivileges : WORD;

    FUNCTION    CheckNetwareVersion             (MinimumVersion, MinimumSubVersion, MinimumRevision,
                                                 MinimumSFT, MinimumTTS : WORD) : WORD;

    FUNCTION    ClearConnectionNumber           (ConnectionNumber : WORD) : WORD;

    FUNCTION    DisableFileServerLogin : WORD;

    FUNCTION    DisableTransactionTracking : WORD;

    FUNCTION    DownFileServer                  (ForceFlag : WORD) : WORD;

    FUNCTION    EnableFileServerLogin : WORD;

    FUNCTION    EnableTransactionTracking : WORD;

    FUNCTION    GetBinderyObjectDiskSpaceLeft   (ConnectionID : WORD; ObjectID : OT_BinderyID;
                                                 VAR SystemElapsedTime, UnusedDiskBlocks : LONGINT;
                                                 VAR RestrictionEnforced : WORD) : WORD;

    FUNCTION    GetConnectionsOpenFiles         (ConnectionID, ConnectionNumber : WORD;
                                                 VAR LastRecord, LastTask : WORD; StructSize : WORD;
                                                 VAR OpenFiles : Conn_Open_Files) : WORD;

    FUNCTION    GetConnectionsSemaphores        (ConnectionID, ConnectionNumber : WORD;
                                                 VAR LastRecord, LastTask : WORD; StructSize : WORD;
                                                 VAR OpenSemaphores : Conn_Semaphore ) : WORD;

    FUNCTION    GetConnectionsTaskInformation   (ConnectionID, ConnectionNumber : WORD; VAR TaskPointer : WORD;
                                                 StructSize : WORD; VAR ConnectionTaskInfo : Conn_Task_Info) : WORD;

    FUNCTION    GetConnectionsUsageStats        (ConnectionID, ConnectionNumber, StructSize : WORD;
                                                 VAR ConnectionUsage : Conn_Usage) : WORD;

    FUNCTION    GetConnectionsUsingFile         (ConnectionID : WORD; VAR LastRecord, TaskID : WORD;
                                                 DirectoryHandle : BYTE; DirectoryPath : PathNameType;
                                                 StructSize : WORD; VAR ConnUsingFile : Conn_Using_File) : WORD;

    FUNCTION    GetDiskCacheStats               (ConnectionID, StructSize : WORD;
                                                 VAR CacheStats : Disk_Cache_Stats) : WORD;

    FUNCTION    GetDiskChannelStats             (ConnectionID, ChannelNumber, StructSize : WORD;
                                                 VAR ChannelStats : Disk_Channel_Stats) : WORD;

    FUNCTION    GetDiskUtilization              (ObjectID : OT_BinderyID; VolumeNumber : BYTE;
                                                 VAR UsedDirectories, UsedFiles, UsedBlocks : LONGINT) : WORD;

    FUNCTION    GetDriveMappingTable            (ConnectionID, StructSize : WORD;
                                                 VAR DriveMappingTable : Drive_Map_Table) : WORD;

    FUNCTION    GetFileServerDateAndTime        (VAR DateAndTime : Byte7ArrayType) : WORD;

    FUNCTION    GetFileServerDescriptionStrings (VAR CompanyName, Revision : String80Type;
                                                 VAR RevisionDate : String24Type;
                                                 VAR CopyrightNotice : String255Type) : WORD;

    FUNCTION    GetFileServerLANIOStats         (ConnectionID, StructSize : WORD;
                                                 VAR ServerLANIOStats : Server_Lan_IO) : WORD;

    FUNCTION    GetFileServerLoginStatus        (VAR LoginEnabledFlag : WORD) : WORD;

    FUNCTION    GetFileServerMiscInformation    (ConnectionID, StructSize : WORD;
                                                 VAR MiscInfo : Server_Misc_Info) : WORD;

    PROCEDURE   GetFileServerName               (ConnectionID : WORD; VAR FileServerName : ObjectNameType);

    FUNCTION    GetFileSystemStatistics         (ConnectionID, StructSize : WORD;
                                                 VAR FileSystemStats : File_Sys_Stats) : WORD;

    FUNCTION    GetLANDriverConfigInfo          (ConnectionID : WORD; LANBoardNumber : BYTE; StructSize : WORD;
                                                 VAR LANDriverConfig : LAN_Config) : WORD;

    FUNCTION    GetLogicalRecordInformation     (ConnectionID : WORD; LogicalRecordName : LogicalRecordNameType;
                                                 VAR LastRecord, LastTask : WORD; StructSize : WORD;
                                                 VAR LogicalRecInfo : Logical_Rec_Info) : WORD;

    FUNCTION    GetLogicalRecordsByConnection   (ConnectionID : WORD; ConnectionNumber : WORD;
                                                 VAR LastRecord, LastTask : WORD; StructSize : WORD;
                                                 VAR LogicalRecord : Logical_Record) : WORD;

    FUNCTION    GetPathFromDirectoryEntry       (ConnectionID : WORD; VolumeNumber : BYTE; DirectoryEntry : WORD;
                                                 VAR DirectoryPath : PathNameType) : WORD;

    FUNCTION    GetPhysicalDiskStats            (ConnectionID : WORD; PhysicalDiskNumber : BYTE; StructSize : WORD;
                                                 VAR PhysicalDiskStats : Phys_Disk_Stats;
                                                 VAR DriveDefinition : String64Type) : WORD;

    FUNCTION    GetPhysicalRecordLocksByFile    (ConnectionID : WORD; DirectoryHandle : BYTE;
                                                 FilePath : PathNameType; VAR LastRecord, LastTask : WORD;
                                                 StructSize : WORD; VAR RecordLock : Phys_Rec_Lock) : WORD;

    FUNCTION    GetPhysRecLockByConnectAndFile  (ConnectionID, ConnectionNumber : WORD;
                                                 VolumeNumber : BYTE; DirectoryHandle : WORD;
                                                 FilePath : PathNameType; VAR LastRecord, LastTask : WORD;
                                                 StructSize : WORD; VAR RecordLock : Short_Phys_Rec_Lock) : WORD;

    FUNCTION    GetSemaphoreInformation         (ConnectionID : WORD; SemaphoreName : SemaphoreNameType;
                                                 VAR LastRecord, LastTask, OpenCount : WORD;
                                                 VAR SemaphoreValue : INTEGER; VAR ConnectionNumber : WORD;
                                                 VAR TaskNumber : BYTE) : WORD;

    FUNCTION    GetServerInformation            (VAR FileServerInformation : File_Serv_Info) : WORD;

    FUNCTION    SendConsoleBroadcast            (Message : BroadcastMessageType; ConnectionCount : WORD;
                                                 ConnectionList : ConnectionListType) : WORD;

    FUNCTION    SetFileServerDateAndTime        (Year, Month, Day, Hour, Minute, Second : WORD) : WORD;

    FUNCTION    TTSGetStats                     (ConnectionID : WORD; VAR LastTask : WORD; StructSize : WORD;
                                                 VAR TTSStats : TTS_Stats) : WORD;

    DESTRUCTOR  Done; VIRTUAL;

  END;